home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 December
/
1985-12.d64
/
disk protect
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
260b
|
11 lines
100 print"[147]disk protected"
110 open15,8,15:print#15,"i0":open2,8,2,"#"
120 print#15,"u1:";2;0;18;0:gosub170
130 print#15,"b-p:";2;2:print#2,chr$(80);:gosub170
140 print#15,"b-p:";2;166:print#2,chr$(80);:gosub170
150 print#15,"u2:";2;0;18;0:gosub170
160 close2:print#15,"i0":close15:end
170 input#15,en,em$,et,es
180 ifenthenprinten,em$,et,es:stop
190 return